Sub drawRectangle()

Dim power_unit, cpu_unit, module_unit, dn_gw As Shape

Dim left_pos, top_pos, width, height As Single

left_pos = 0
top_pos = 0
width = 0
height = 0

'Set power_unit = ActiveSheet.Shapes.AddShape(msoShapeRectangle, left_pos, top_pos, width, height)

left_pos = 0
top_pos = 0
width = 31
height = 90
Set cpu_unit = ActiveSheet.Shapes.AddShape(msoShapeRectangle, left_pos, top_pos, width, height)

left_pos = left_pos + width
top_pos = 0
width = 31
height = 90
Set module_unit = ActiveSheet.Shapes.AddShape(msoShapeRectangle, left_pos, top_pos, width, height)

left_pos = left_pos + width
top_pos = 0
width = 43.4
height = 126.2
Set dn_gw = ActiveSheet.Shapes.AddShape(msoShapeRectangle, left_pos, top_pos, width, height)

End Sub
